home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
MacPerl 506 appl folder.sit
/
MacPerl 506 appl folder
/
Mac_Perl_506r1m_appl
/
eg
/
uudecode
< prev
next >
Wrap
Text File
|
1994-12-26
|
416b
|
16 lines
#!/usr/bin/perl
while (<>) {
next unless ($mode,$file) = /^begin¥s*(¥d*)¥s*(¥S*)/;
open(OUT,"> $file") || die "Can't create $file: $!¥n";
while (<>) {
last if /^end/;
next if /[a-z]/;
next unless int((((ord() - 32) & 077) + 2) / 3) ==
int(length() / 4);
print OUT unpack("u", $_);
}
chmod oct($mode), $file;
eof() && die "Missing end: $file may be truncated.¥n";
}